398 REM *        PROGRAM ONE          *
399 REM *    DECIMAL FORMAT DEMO      *
400 PRINT"[147]";
410 C1=.5:C2=1:C3=100:PN=1000:NN=-1000
420 PRINTSPC(6)"RAW DATA"SPC(7)"FORMATTED DATA"
430 PRINTSPC(6)"[163][163][163][163][163][163][163][163]"SPC(7)"[163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
440 FORI=1TO20
450 S=RND(-TI)
460 V=(NN-PN+C2)*RND(1)+PN
470 GOSUB5000
480 PRINTSPC(4)V;TAB(24)N$
490 NEXT
500 POKE198,0
510 PRINTSPC(10)"HIT A KEY FOR MORE"
520 GETK$:IFK$=""THEN520
530 GOTO400
4999 REM *** DECIMAL FORMAT ROUTINE ***
5000 N$=STR$(INT(V*C3+C1)/C3)
5010 LO=LEN(N$)
5020 FORJ=2TOLO
5030 IFMID$(N$,J,1)="."THENFR=LO-J:J=LO
5040 NEXT
5050 ONFR+C2GOTO5070,5080,5090
5060 N$=LEFT$(N$,LO-FR+2):GOTO5090
5070 N$=N$+".00":RETURN
5080 N$=N$+"0"
5090 FR=0:RETURN